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1 . Select room to be decorated. 

2. Choose favorite Basic Color Family 

3. On a scale of 1 to 10, estimate the 
level of activity anticipated for this 
space. 

10 might indicate a 
recreational space where, 
for example, people might 
be shooting pool, dancing, 
exercising, etc. 1 might 
indicate a room for sleeping, 
reading, or simply 
meditating. 

4. Next, estimate the number of people 
that will typically use the room. 

10 would indicate large 
numbers of people; 1, 
solitary use such as a library 
or individual bedroom. 



5. Now estimate the amount of natural 
light available in the room with 5 
indicating no natural light, and 1 
indicating a large amount. 

6. Guage the approximate exposure of 
the room. 

7. Finally, consider spatial emphasis; 
how do you want to either enhance 
or overcome the room's inherent 
spatial limitations? Do you want the 
room to appear large and open, 
small and cozy, or somewhere in 
between? 



1 . Together, designer & client choose; 

2. Reduces number of columns to 26. 



3. 



Moves target indicator two columns 
in any given direction depending on 
the level of activity indicated by the 
customer. A ten would select the 
last two columns on the right in the 
direction of warmer colors; a three 
would select the 5* and 6 th columns 
from the left boundary of the color 
family. 



Fixes the target indicator on the row 
with 10 being on Row 1, 9 on Row 2, 
8 on Row 3, etc. The target area is ' 
expanded four rows and four 
columns on each side from the 
intersection between the columns of 
step 3 and the target row chosen. 

A choice of 4or 5 moves the range to 
the top four rows of the target; 
choosing 3 to the middle four rows; 1 
or 2 to the bottom four rows. 

N or E corresponds to the warmest 
two columns; etc. 

The final eight choices are divided 
into quadrants, with each quadrant 
representing one of the four spatial 
emphases. Small & cozy matches 
up with the warmest and darkest two 
of the eight colors, etc. 
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Sheet 1 - 1 

Private Sub Worksheet_SelectionChange (ByVal Target As Excel. Range) 
End Sub 
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ThisWorkbook - i 

Private Sub Wor kbook_Open ( ) 

' Clear worksheets 2 thru 6 

Sheets ( "Color Pref " ) - Select 
Range !"A1 : Z10"! .Clear 
Sheets ("ActOcc"} .Select 
Range i "Al :05") .Clear 
Sheets ("LitExp"} .Select 
IT} Range { "AI :Z10") -Clear 

Sheets ( "RESULTS" ) .Select 
Range !"A1:Z10") .Clear 



' Turn off alerts 

Application. DisplayAlerts = False 



End Sub 



CO • Show splash screen 

User Form2. Show 
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v. .. activityLvl 

Dim noOccupants 

Dim lightLvi 

Dim exposeLvi As String 

Dim exposeNo 

Dim rowCenter 

Dim rowTop 

Dim rowBottom 

Dim colCenter 

Dim colLeft 

Dim colRight 

Dim rowCount 

Dim colCount 

Private Sub AboutButton_Click ( ) 

About Info 
End Sub 

Private Sub Exit But ton_Click ( ) 
Application . Quit 

End Sub S 

Private Sub FindBut ton_Click ( ) 

1 Set color family 

Sheets ("Color Chart "). Select 

If Color. Text .= "Blue / Blue-Green / Blue-Violet Family" Then 

Range ("Blue") -Select 
Elself Color. Text = "Yellow / Yellow-Green / Yellow-Orange Family" Then 

Range ("Yellow") .Select 
Elself Color. Text = "Red / Red-Orange / Red-Violet Family" Then 
Range ("Red") .Select 

Else 

MsgBox "Input error, programs halts.", vbcritial + vbOKOnly, 

"Error!" 
Exit Sub 
End If. 
Select ion .Copy 
Sheets ("ColorPref") .Select 
Range ("Al") .Select 
ActiveSheet . Paste 



Set activity and occupancy levels 
activityLvl - CInt (Activity . Text ) 
noOccupants - CInt (Occupancy . Text ) 

Initialize counters 
rowCount = 0 
colCount = 0 



Figure new range center 

rowCenter = Int(9 - activityLvl) 
rowTop - rowCenter - 2 
rowBottom = rowCenter + 2 
colCenter = Int{3.4 * noOccupants + 
colLeft = colCenter - 4 
colRight = colCenter + 4 



1.6) 



elect cells and copy — > ActOcc tab 
For colNumber = colLeft To colRight 
colCount = colCount + 1 
For rowNumber = rowTop To rowBottom 
rowCount = rowCount + 1 
Sheets ("ColorPref ") . Select 
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Cells (rowNumber r colHumber ) . Select 

Selection-Copy 

Sheets ("ActOcc") .Select 

Cells (rowCount, col Count ) . Select 

ActiveSheet . Paste 

Next 

rowCcunt = 0 

Next 

Set light and exposure levels 
lightLvl = Clnt (Light .Text ) 
exposeLvl = Expose. Text 
If exposeLvl = "South" Then 

exposeNo = 1 
Elself* exposeLvl = "West" Then 

exposeNo = 1 
Elself exposeLvl = "Southeast" Then 

exposeNo = 2 
Elself exposeLvl = "Northwest" Then 

exposeNo = 3 
Elself exposeLvl = "East" Then 

exposeNo = 4 
Elself exposeLvl = "North" Then 

exposeNo = 4 
Elself exposeLvl = "No windows" Then 

exposeNo = 5 

Else 

MsgBox "Input error, programs halts.", 

"Error!" 
Exit Sub 
End If 

Initialize counters 
rowCount = 0 
colCount - 0 

Figure new range center 

rowCenter = Int(0.5 * lightLvl + 1.5) 
rowTop = rowCenter - 1 
rowBottom = rowCenter + 1 
colCenter = Int (exposeNo + 2) 
colLeft = colCenter - 2 
colRight = colCenter + 2 

Select cells and copy — > LitExp tab 
For colNumber = colLeft To colRight 
colCount = colCount + 1 
For rowNumber = rowTop To rowBottom 

rowCount = rowCount + 1 

Sheets ("ActOcc") .Select 

Cells (rowNumber, colNumber ). Select 

Selection .Copy 

Sheets ("LitExp") .Select 

Cells (rowCount, colCount) .Select 

ActiveSheet . Paste 

Next 

rowCount = 0 

Next 



vbcritial + vbOKOnly, 



Spatial emphasis effects 

If Spatial. Text = "Large & Open" Then 
rowTop = 1 
rowBottom = 2 
colLeft = 1 
colRight = 3 

Elself Spatial. Text - "Large but Contained" Then 
rowTop = 1 
rowBottom = 2 
colLeft = 3 
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= "Small but Spacious" Then 



•Small & Cozy" Then 



colRight = 5 
Elself Spatial .Text 
row? op = 2 
rowSottom - 3 
colLeft = I 
colRight = J 
Elself Spatial. Text 
rowTop - 2 
rowBottom = 3 
colLeft = 3 
colRight = 5 

E1Se MsgBox "ln P ut error, programs halts.", vbcritial 4 vbOKOnly, _ 
"Error!" 
Exit Sub 
End If 

Initialize counters 
rowCount = 0 
colCount - 0 

Select cells and copy — > RESULTS tab 
For colNumber = colLeft To colRight 
colCount = colCount + 1 
For rowNumber - rowTop To rowBottom 
rowCount = rowCount + 1 
Sheets ("LitExp") .Select 
Cells (rowNumber, colNumber) . Select 
Selection. Copy 
Sheets ( "RESULTS" ) -Select 
Cells (rowCount, colCount ) . Select 
ActiveSheet . Paste 

Next 

rowCount = 0 

Next 

Present results 
UserForml . Hide 
UserForm3. Show 



Blue-Violet Family" 



End Sub 

Private Sub ResetButton_Click ( ) 
* Reset form 

Color. Text = "Blue / Blue-Green / 

Activity .Text = "1" 

Occupancy -Text = "1" 

Light. Text = "1" 

Expose -Text = "South" 

Spatial. Text = "Large & Open" 
1 Reset worksheets 

Sheets ("ColorPref") .Select 

Range ("A1:Z10") .Clear 

Sheets ("ActOcc") .Select 

Range ("Al: 15") .Clear 

Sheets ("LitExp") .Select 

Range <"A1:E3") .Clear 

Sheets ("RESULTS") .Select 

Range ("A1:C2") .Clear 
End Sub 

Private Sub UserForm_Ini tialize () /„,„■■.«. r at nnv« 

Color. ListO = Array ("Blue / Blue-Green / Blue-Violet Family , _ 

"Yellow / Yellow-Green / Yellow-Orange Family", _ 

"Red / Red-Orange / Red-Violet Family") 
Activity. ListO - Array("l", "2", "3", "4", "5 
Occupancy. ListO =Array("l", "2", "3", "4 
Light. ListO = ArrayCl", "2", "3", 
Expose. ListO - ArrayC'South", "West' 



"4' 



"6") 
"5", "6") 

"5") 
'Southeast", 
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UserFornu - 4 \ 

"Northwest", "East", "North", "No windows") 
Spatial. List = Array ( "Large & Open", "Large out Contained , _ 
"Small but Spacious", "Small & Cozy") 
LO ' Beset Worksheets 

ir> Sheets ( "ColorFref " } .Select 

^ Ranae("Ai:Z10") .Clear 

^t* Sheets ("ActOcc") .Select 

O Range ("Ai: 15") .Clear 

Sheets ("LitExp") .Select 
~ Range ("Al:E3"} .Clear 

CO Sheets { " RESULTS" ) .Select 

^f* Range("Al:C2") .Clear 

End Sub 

<» Private Sub UserFor^QueryClose (Cancel As Integer, CloseMode As Integer) 

. If rioseMode = vbFormControlMenu Then 

O If MsgBox "You can't close this form like that.", vbOKOnly, "Error! 

^ Cancel = True 

-J End If 

End Sub 
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UserFornu - 1 

' NorthStar CGS Splash Screen 

Private Sub UserForm_Act ivate ( ) 

Application. OnTime Now + TimeValue ( "00 : 00 : 03 " ) , "Ki 1 1 The Form " 
End Sub 

to 

JO i .vate Sub UserForm_QueryClose (Cancel As Integer, CloseMode As Integer) 

If CloseMode = vbFormCont rolMenu Then 

MsgBox "You can't close this form like that.", vbOKOnly, "Error!" 
» Cancel = True 

^4 End If 

End Sub 
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Figure 101 
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LO f Results presentation dialog box 
Private Sub ret urnBut t:on_Ci ick ( ) 
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Unload UserFormS 
User Form 1 . Show 
"* Sub 



Private Sub UserForm_QueryClose (Cancel As Integer, CloseMode As Integer) 
Tf CloseMode = vbFormCont rolMenu Then 
^ff / MsgBox "You can't close this form like that.", vbOKOnly, "Error! 1 

— / Cancel = True 

ZZ I End If 

00 / End Sub 
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* About Box verbage 

Sub About Info ( ) 

Aboutl$ = "NorthStar Color Guidance System" 

About2$ = "Version 1.00.10 BETA Build 315" 

About3$ = "Copyright 1999 NorthStar Marketing Co., LLC" 

About4$ = "All rights reserved." 

AbouttitleS = "About this program..." 

MsgBox AboutlS 5< Chr$(13) & Chr$(13) & About2$ & Chr$(13) & 
About 3 S s Chr$(13) a About4$, vblnf ormation, AbouttitieS 

End Sub 
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Private Sub Ki 1 ITheForm ( ) 
Unload UserForm2 
User Forml - Show 

End Sub 
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TYPES OF ANTICIPATED ACTIVITY 



Very Low Activity 

1 (Relaxation / Minimal Physical Exertion) 



Low Activity 

(Heightened Awareness / Slight 
Physical Exertion) 



Low to Moderate Activity 

(Interaction / Higher Levels of Physical 
Exertion) 



Moderate to High Activity 

(Heightened Physical Activity) 



High Activity 

(High Levels of Physical Exertion / 
Frequent Interaction) 



Very High Activity 

(Exercise & High Energy 
Activities) 
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ICAL ROOM OCCUPANCY 



Solitary 



Couples 



Family 



More Family (or Friends) 



Discussions /Meetings 



Parties / Large Groups 
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ROOM EXPOSURE 



Southern Exposure 



Western Exposure 




v 



Southeastern Exposure 



Northwestern Exposure 





Eastern Exposure 




Northern Exposure 




No Windows 
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DESIRED SPATIAL EFFECTS 
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Your Personal Room Color Profile 



Room Selected: 



Your Favorite Color Family: 




Blue / Blue- Violet / Blue-Green 


o 


Yellow / Yellow-Green / Yellow-Orange 


a 


Keo / Keo-urange / Ked- violet 


a 


Types of Anticipated Activity: 




Very Low Activity 


a 


Low Activity 


a 


Low- Moderate Activity 


D 


High - Moderate Activity 


a 


High Activity 


a 


Very High Activity 


a 


Typical Room Occupancy: 




Solitary 


a 


Couples 


a 


Family 


a 


More Family 


a 


Discussions / Meetings 


a 


Parties / Large Groups 


a 


Available Light / All Sources: 




Dark 


a 


Low light 


a 


Moderate 


a 


Bright 


o 


Very Bright 


a 


Room Exposure: 




South 


a 


West 


a 


Southeast 


a 


Northwest 


a 


East 


o 


North 


a 


No Exterior Exposure 


a 


Desired Spatial Effect: 




Large and Open 


a 


Large but Contained 


a 


Small but Spacious 


o 


Small and Cozy 


a 
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